home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00009_congratulations bailout btn.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  376 b   |  17 lines
  1. on mouseUp
  2.   highlight(the clickOn)
  3.   updateStage()
  4.   clearScore()
  5.   set ret to doMode(#sms, "skip")
  6.   if ret = #done then
  7.     alert("You have completed the required assignment. See your instructor for more or login as GUEST.")
  8.     saveStudent()
  9.     goChangeMeta("login")
  10.   else
  11.     if ret = #error then
  12.       saveStudent()
  13.       goChangeMeta("login")
  14.     end if
  15.   end if
  16. end
  17.